100 Plus Great Games 2/100PLUSV2.BIN/games/StreetsAlleys.dxr/playing cards_56_t hot.ls

Text File | 2002-01-25 | 1.5 KB | 69 lines

property spriteNum, row, fp
global tableau, equal, currentsel, getlist, godlist, basecard

on beginSprite me
  row = determinerow()
  can = [#tone: 14, #ttwo: 28, #tthree: 43, #tfour: 57, #tfive: 71, #tsix: 85, #tseven: 100, #teight: 114]
  fp = can[row]
end

on determinerow me
  if spriteNum = 132 then
    return #tone
  else
    if spriteNum = 133 then
      return #ttwo
    else
      if spriteNum = 134 then
        return #tthree
      else
        if spriteNum = 135 then
          return #tfour
        else
          if spriteNum = 136 then
            return #tfive
          else
            if spriteNum = 137 then
              return #tsix
            else
              if spriteNum = 138 then
                return #tseven
              else
                if spriteNum = 139 then
                  return #teight
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on mouseEnter me
  if getlist <> VOID then
    if tableau[row].getcardcount() < 14 then
      if tableau[row].getcardcount() > 0 then
        if getlist.getlastcard().rankvalue = (tableau[row].getlastcard().rankvalue - 1) then
          equal = 1
          godlist = tableau[row]
          currentsel = tableau[row].getlastcard().spnum + 1
        end if
      else
        if tableau[row].getcardcount() = 0 then
          equal = 1
          godlist = tableau[row]
          currentsel = fp
        end if
      end if
    end if
  end if
end

on mouseLeave me
  equal = 0
  currentsel = 0
  godlist = VOID
end